home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS078A.dsk / REM FORMATTER.bas < prev    next >
BASIC Source File  |  2012-02-16  |  1KB  |  12 lines
  1. 10  REM  <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>THIS PROGRAM LAST MODIFIED BY    <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>RUDY A. GUY ON 7-OCT-80          <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>                                 <CTRL-M>
  2. 100  REM <CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J>HIDDEN REM FORMATTER BY       VAL GOLDING
  3. 110  REM <CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J>WRITE OVER UNDERSCORES       AND TRACE OVER M'S<CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J>
  4. 600  TEXT : HOME : VTAB 6: HTAB 10: INPUT "LINE, INCR ";L,IN: HOME : PRINT : GOTO 710
  5. 700  HOME : PRINT :L =  PEEK(0) + PEEK(1) *256:IN =  PEEK(2)
  6. 710  PRINT : PRINT " ";L;
  7. 712  PRINT " REM ";: INVERSE : PRINT "HHHHHHHHHHHHHHH";: NORMAL : GOSUB 800: INVERSE : PRINT "HHHHHHHHHH";: NORMAL : GOSUB 800: INVERSE : PRINT "HHHHHHHHHH";: NORMAL : GOSUB 800: INVERSE : PRINT "M";: NORMAL : PRINT 
  8. 720  IF  PEEK(37) >18  THEN 750
  9. 730 L = L +IN: GOTO 710
  10. 750  VTAB  PEEK(37) +2: PRINT "GO TO 700":L = L +IN: VTAB 2
  11. 760 LMOD256 = L -( INT(L/256) *256): POKE 0,LMOD256: POKE 1,L/256: POKE 2,IN: END 
  12. 800  FOR I = 1 TO 33: PRINT  CHR$(95);: NEXT : RETURN : REM <CTRL-J><CTRL-J><CTRL-J>